io Programmo 53/IOPROG_53.ISO/soft/c++/xceedbkp.exe/Recovery Wizard/Sources/frmTwo.frm

Visual Basic Form | 1999-09-02 | 5.7 KB | 181 lines

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmTwo
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Xceed Recovery Wizard"
   ClientHeight    =   3060
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4425
   Icon            =   "frmTwo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3060
   ScaleMode       =   0  'User
   ScaleWidth      =   7672.834
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin ComctlLib.ProgressBar stbProgress
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   2040
      Width           =   3975
      _ExtentX        =   7011
      _ExtentY        =   450
      _Version        =   327682
      Appearance      =   1
   End
   Begin VB.CommandButton cmdChooseCatFolder
      Caption         =   "..."
      Height          =   255
      Left            =   3840
      TabIndex        =   4
      Top             =   1440
      Width           =   375
   End
   Begin VB.CommandButton cmdBrowseBackupFolder
      Caption         =   "..."
      Height          =   255
      Left            =   3840
      TabIndex        =   2
      Top             =   720
      Width           =   375
   End
   Begin VB.CommandButton cmdCreate
      Caption         =   "Recreate "
      Height          =   375
      Left            =   1560
      TabIndex        =   5
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox txtCreateNewCatalogsPath
      Height          =   285
      Left            =   240
      TabIndex        =   3
      Top             =   1440
      Width           =   3495
   End
   Begin VB.CommandButton cmdCancel
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3000
      TabIndex        =   6
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox txtFindBackup
      Height          =   285
      Left            =   240
      TabIndex        =   1
      Top             =   720
      Width           =   3495
   End
   Begin VB.Label Label2
      Caption         =   "Where would you like to recreate the catalogs to?"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   1200
      Width           =   3735
   End
   Begin VB.Label Label1
      Caption         =   "Where are the backup files located?"
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   480
      Width           =   2775
   End
   Begin VB.Label lblTwo
      Caption         =   "Catalog recreation step"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   2295
   End
Attribute VB_Name = "frmTwo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim xClass As clsXceed
Dim ExitInc As Integer
Public Function ShowForm(xObjects As clsXceed) As Integer
    'This is where you will fill in the fields on your forms with the values
    'in xObjects.
    txtCreateNewCatalogsPath.Text = xObjects.xMain.CatalogFolder
    Set xClass = xObjects

    Me.Show vbModal

    Set xClass = Nothing

    'At this point, the form is now hidden and ExitInc contains the increment.
    'If ExitInc is not 0 then set xobjects to the field values.
    If ExitInc <> 0 Then
        xObjects.xMain.CatalogFolder = txtCreateNewCatalogsPath.Text
    End If
    ShowForm = ExitInc
End Function
Public Property Get Percent() As Integer
    Percent = stbProgress.Value
End Property
Public Property Let Percent(Value As Integer)
    stbProgress.Value = Value
    Me.Refresh
End Property
Private Sub cmdBrowseBackupFolder_Click()
    Dim sFolder As String
    Dim bFolderSelected As Boolean
    bFolderSelected = BrowseForFolder(sFolder, "", Me.hwnd)
    If bFolderSelected Then
        txtFindBackup.Text = sFolder
    End If
End Sub
Private Sub cmdCancel_Click()
    Dim Answer As VbMsgBoxResult
    Answer = MsgBox("Your catalogs have not yet been recreated. Cancel anyway?", vbYesNo + vbQuestion)
    If Answer = vbYes Then
        Me.Hide
    End If

End Sub
Private Sub cmdChooseCatFolder_Click()
    Dim sFolder As String
    Dim bFolderSelected As Boolean
    bFolderSelected = BrowseForFolder(sFolder, "", Me.hwnd)
    If bFolderSelected Then
        txtCreateNewCatalogsPath.Text = sFolder
    End If
End Sub
Private Sub cmdCreate_Click()
    xClass.BackupFolder = txtFindBackup.Text
    xClass.xMain.CatalogFolder = txtCreateNewCatalogsPath.Text
    If xClass.RecreateCatalogs Then
        ExitInc = 1
    Else
        ExitInc = 0
    End If
    Me.Hide
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode <> vbFormCode Then
        Cancel = True
        Call cmdCancel_Click
    End If
End Sub